home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD003b.dsk / BUZZ.PHRASE.GENERATOR.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  23 lines
  1. 10  REM  BUZZ.PHRASE.GENERATOR
  2. 15  TEXT 
  3. 20  DIM A$(10),B$(10),C$(10)
  4. 30  FOR I = 1 TO 10: READ A$(I): NEXT 
  5. 40  FOR I = 1 TO 10: READ B$(I): NEXT 
  6. 50  FOR I = 1 TO 10: READ C$(I): NEXT 
  7. 60  HOME : VTAB (5): PRINT "IN THE BEGINNING WAS THE WORD,"
  8. 62  PRINT : PRINT "AND THE WORD BROUGHT THE IDEA TO MIND,"
  9. 64  PRINT : PRINT "AND THE IDEA BECAME REALITY."
  10. 70  VTAB (20): INPUT "HIT RETURN ";R$
  11. 100  HOME : VTAB (5): PRINT "LET ME SEE NOW...": FOR I = 1 TO 1000: NEXT : HOME : VTAB (12)
  12. 110 I =  INT( RND(1) *10) +1
  13. 120  PRINT A$(I);" ";
  14. 130 I =  INT( RND(1) *10) +1
  15. 140  PRINT B$(I);" ";
  16. 150 I =  INT( RND(1) *10) +1
  17. 160  PRINT C$(I)
  18. 170  VTAB 20
  19. 180  INPUT "HIT RETURN FOR ANOTHER ONE ";R$
  20. 190  GOTO 100
  21. 1000  DATA  "INTEGRATED","EXTENDED","COMPRESSED","MINIMAL","DIFFERENTIAL","LINEAR","INTERNAL","SEQUENTIAL","OPTIMAL","EXPANDED"
  22. 1010  DATA  "GEOMETRIC","LOGARITHMIC","ARITHMATIC","SUB-ATOMIC","AUTOMATIC","SYNTHETIC","ANALYTIC","RELATIVISTIC","SPANNING","STATIC"
  23. 1020  DATA  "SYSTEM","PROCEDURE","PROCESS","CONFIGURATION","PROGRAM","APPROACH","ALGORITHM","PROJECTION","ALLOCATION","TABULATION"